home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 December / Ahoy_Magazine_85-12_1985_Double_L.d64 / santa's busy day (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  66 lines
  1. 10 rem santa's busy day
  2. 20 rem george trepal
  3. 30 rem 2650 alturas road
  4. 40 rem bartow, fl  33830
  5. 50 print"[147]  do you want an <e>asy or a <r>egular"
  6. 55 print"  game?"
  7. 60 geta$: ifa$<>"" then 60
  8. 70 geta$:if a$="" then 70
  9. 80 if a$="e" then poke 828,1
  10. 90 c=896: ct=44: poke53280,0
  11. 100 read d$: l=len(d$): print "[147]"spc(8)"counting down to zero  ";
  12. 105 ct=ct-1: print ct: poke 53281,ct
  13. 110 for j=1tol step2: m$=mid$(d$,j,2)
  14. 120 h$=left$(m$,1): l$=right$(m$,1)
  15. 130 h=asc(h$)-48: ifh>10 then h=h-7
  16. 140 l=asc(l$)-48: ifl>10 then l=l-7
  17. 150 p=h*16+l:if p>255 then 200
  18. 155 poke c,p: c=c+1
  19. 160 next:goto100
  20. 200 if c<1000 then c=49152: goto 100
  21. 210 sys49160
  22. 896 data 00150000aa8002aaa009555806aaa40a596806fbe405eb94055554016a500159
  23. 928 data 500255600a95a82aa6aa2aaaaa29aa9a19aa9915aa95156a55055554015550zz
  24. 49152 data 0100d8ffffff2800a9008d49038d4c0385fba90c85fca000a92091fbc8d0fbe6
  25. 49184 data fca5fcc99fd0f1a9568d4303a95185fba92885fda91285fc85fea99320d2ffa2
  26. 49216 data 00a000ad430391fdc8c027d0f918a5fd692885fd9002e6fee8e051d0e4a000a9
  27. 49248 data 0491fba9ff8d0fd4a9808d12d4ad1bd4290385adaa0aa818b900c065fb85aab9
  28. 49280 data 01c065fc85ab18b900c065aa85fdb901c065ab85fea000b1fdcd4303d0128a91
  29. 49312 data fda92091aaa5fd85fba5fe85fc4c63c0e88a2903c5add0bcb1fbaaa92091fbe0
  30. 49344 data 04f01a8a0aa8a20238a5fbf900c085fba5fcf901c085fccad0ee4c63c0a90f8d
  31. 49376 data 48038502a9068d20d08d21d020f2c04c10c1a502a0009900d89900d99900da99
  32. 49408 data 00dbc8d0f1a228a90d9dc0dbcad0fa60ad43038d4f128dcf1ea9208d76128d50
  33. 49440 data 128d801e8da61ea90085fb8d3f03a9ff85fda91285fca92385fea000a20018a5
  34. 49472 data fd690185fda5fe690085feb1fb91fd18a5fd697885fda5fe690085feb1fb91fd
  35. 49504 data 18a5fd697885fda5fe690085feb1fb91fd38a5fde9f085fda5fee90085fee8e0
  36. 49536 data 03d0bbee3f03ad3f03c928d01218a5fd69f085fda5fe690085fea9008d3f0318
  37. 49568 data a5fb690185fba5fc690085fca5fcc920d08aa5fbc900d084a9a08d4203a9ff8d
  38. 49600 data 0fd4a9808d1bd4a2d2a000ad1bd4c92730f9c99010f585fcad1bd485fbb1fbcd
  39. 49632 data 4303f0e7ad420391fbcad0dfad4203c953f00aa9538d4203a2024ccbc1a204a9
  40. 49664 data 309dc107cad0fa200dc24c1dc2a220a95b9dc707cad0faa9018d4f0360a9988d
  41. 49696 data 4403a9218d4503a9008d4603a90f8d18d4a9018d1cd08d15d0a9b08d00d0a98c
  42. 49728 data 8d01d0a9028d27d0a90e8df807a9018d25d0a90a8d26d0ad00dc290f8d4003ce
  43. 49760 data 4603ad4603c900d012a9008d04d4ad4803850220f2c0a9068d20d038a90fed40
  44. 49792 data 038d4003c900f0038d4d03ad3c03c901d006ad40038d4d03ad4d03c901d0034c
  45. 49824 data bac2c902d0034ce1c2c904d0034c08c3c908f0034c53c34c2fc3adcc058d4103
  46. 49856 data cd4303d008a9028d4d034c53c338ad4403e9788d4403ad4503e9008d45034c53
  47. 49888 data c3ad1c068d4103cd4303d008a9018d4d034c53c318ad440369788d4403ad4503
  48. 49920 data 69008d45034c53c3adf3058d4103cd4303d008a9088d4d034c53c338ad4403e9
  49. 49952 data 018d4403ad4503e9008d45034c53c3adf5058d4103cd4303d008a9048d4d034c
  50. 49984 data 53c318ad440369018d4403ad450369008d4503a90085fda90485fea9008d4e03
  51. 50016 data 8d4703ad440385fbad450385fca000b1fb91fd18a5fb690185fba5fc690085fc
  52. 50048 data 18a5fd690185fda5fe690085feee4703ad4703c928d012a9008d470318a5fb69
  53. 50080 data 5085fba5fc690085fce8d0c3ee4e03ad4e03c904d0034cc2c3c903d0b2a2684c
  54. 50112 data 6fc3ad4103cd4303d026a90885028d20d020f2c0a9088d05d4a9818d04d4a919
  55. 50144 data 8d01d4a90a8d4903a9028d4603ee4f03ad4103c9a0d01ea90785028d20d020f2
  56. 50176 data c0a9018d4b03a90f8d05d4a9118d04d4a9058d4603ad4103c953d026a9008502
  57. 50208 data 20f2c0a90f8d05d4a9218d04d4a9048d4603a280a000ee21d0c8d0fae8d0f720
  58. 50240 data 0dc2ad4903c900f017a90f8d2c05a9158d5405a9038d7c05a9088da405ce4903
  59. 50272 data 18ad440369b485fbad4503690585fca92091fb8d4103ad4b03c901d049a9008d
  60. 50304 data 4b03a9008d4a0318adc4076901c93af0068dc4074ca1c4a9308dc407a9018d4a
  61. 50336 data 03a20218bdc1076d4a03c93af00b9dc107a9008d4a034cc3c4a9309dc107a901
  62. 50368 data 8d4a03cad0ddee4c03ad4c03c900d003ee4f03ad4f03aaa9a09dc707cad0f8ad
  63. 50400 data c207c932d0034cf3c4ad4f03c920d0484cf3c4a9008d04d48d15d0a90f8df305
  64. 50432 data a9168df405a9058df505a9128df605a9028502a9008d21d020f2c0a9018df3d9
  65. 50464 data 8df4d98df5d98df6d9a5c5c940d0faa5c5c940f0fa4c08c04c57c250zz
  66.